home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Your Choice 1
/
your choice.zip
/
your choice
/
OS2
/
LW22
/
NOVA.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-04-20
|
4KB
|
144 lines
/* LiveWire OS2 Shareware REXX Script File Kenn Lynch 12/05/93 */
/* */
/* The script is a sample logon script for the OS/2 Shareware BBS */
/* This script is for sample purposes only, and is not guaranteed by */
/* DataMirage Software */
/* Set timeout */
SetLW(TimeOut,60);
/* Set inter-character pacing to 40ms */
SetLW(Pacing,40);
/* Set emulation and toggles */
SetLW(Emulation,1);
SetLW(Echo,0);
SetLW(Linefeeds,0);
SetLW(XonXoff,0);
SetLW(BSIsDel,1);
/* Start Script Session, logon and send username and password */
SendLW("^M")
ret=FindLW("wait 20 seconds");
DelayLW(100);
SendLW("^[");
ret=FindLW("your name:");
DelayLW(100);
SendLW("KENN LYNCH^M");
ret=FindLW("Kenn Lynch [Y,n]? ");
DelayLW(100);
SendLW("^M");
ret=FindLW("Password: ");
DelayLW(100);
SendLW(GetLW(DialerPassword)||"^M");
ret=FindLW("ss ENTER to continue ");
DelayLW(100);
SendLW("^M");
/* "move" previous capture file to nova-1.cap */
/* A better way to do this would be to datestamp the capture filename */
/* but I still havent quite figured how to do this in Rexx and LW */
'copy nova.cap nova-1.cap';
'del nova.cap';
SetLW(Capture, ON,"NOVA.CAP");
/*aptures all mail and latest uploads */
ret=FindLW("r mail? [Y,n]");
DelayLW(100);
SendLW("Y^M");
ret=FindLW(" files? [Y,n]");
DelayLW(100);
SendLW("Y^M");
ret=FindLW("ss ENTER to continue ");
DelayLW(100);
SendLW("^M");
/* goto the "M"essage areas */
ret=FindLW("Select:");
DelayLW(100);
SendLW("M^M");
/* select the games msg area and display/capture "=" all new messages */
ret=FindLW("Select:");
DelayLW(100);
SendLW("A os2games^M");
ret=FindLW("Select:");
DelayLW(100);
SendLW("=^M");
/* go to the os2comm msg area and display/capture all new messages */
ret=FindLW("Select:");
DelayLW(100);
SendLW("A os2comm^M");
ret=FindLW("Select:");
DelayLW(100);
SendLW("=^M");
/* go to the os2video msg area and display/capture all new messages */
ret=FindLW("Select:");
DelayLW(100);
SendLW("A os2video^M");
ret=FindLW("Select:");
DelayLW(100);
SendLW("=^M");
/* go to the os2hw msg area and display/capture all new messages */
ret=FindLW("Select:");
DelayLW(100);
SendLW("A os2hw^M");
ret=FindLW("Select:");
DelayLW(100);
SendLW("=^M");
/* the os2hw msg area is the largest area I adjusted the timeout */
SetLW(TimeOut,240);
ret=FindLW("Select:");
/* reset timeout value go to the local msg area and capture all new messages */
SetLW(TimeOut,60);
DelayLW(100);
SendLW("A local^M");
ret=FindLW("Select:");
DelayLW(100);
SendLW("=^M");
/* "J"ump to the files area and "D"ownload os2new.zip */
ret=FindLW("Select:");
DelayLW(100);
SetLW(Capture, OFF);
'del e:\download\os2new.zip';
SendLW("=JDOS2NEW^M");
/* a "G"oodbye forces a logoff after the download */
ret=FindLW("s) to download ");
DelayLW(100);
SendLW("/g^M");
/* deletes the prior copy of os2new.txt and unzips the latest download */
/* this is were I'm having "sync" problems */
SetLW(TimeOut,100);
ret=FindLW("null string");
DelayLW(100);
'del d:\lwos2\os2new.txt';
DelayLW(100);
'unzip e:\download\os2new.zip';
Exit